﻿Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Partial Class ReporteGeneral
    Inherits System.Web.UI.Page

    Dim MiReporte As New ReportDocument()

    
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '   If Not Page.IsPostBack Then
        cargarReporte()
        'End If
    End Sub

    Protected Sub cargarReporte()

        If (Session("TipoReporte") = "1") Then

            Page.Title = "Reporte de Requerimiento"
            MiReporte.Load(Server.MapPath("~/Reportes/RepRequerimiento.rpt"))
            MiReporte.SetDataSource(Session("Resultados"))
            MiReporte.SetParameterValue("USUARIO", "Administrador")
            CrystalReportViewer1.ReportSource = MiReporte
        End If

        If (Session("TipoReporte") = "2") Then

            Page.Title = "Reporte de Stock de Productos"
            MiReporte.Load(Server.MapPath("~/Reportes/RepProductosStock.rpt"))
            MiReporte.SetDataSource(Session("Resultados"))
            MiReporte.SetParameterValue("USUARIO", "Administrador")
            CrystalReportViewer1.ReportSource = MiReporte
        End If

        If (Session("TipoReporte") = "3") Then

            Page.Title = "Kardex de Productos"
            MiReporte.Load(Server.MapPath("~/Reportes/RepKardexProducto.rpt"))
            MiReporte.SetDataSource(Session("Resultados"))
            MiReporte.SetParameterValue("USUARIO", "Administrador")
            CrystalReportViewer1.ReportSource = MiReporte
        End If
    End Sub
End Class
